home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / joystick test.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  949b  |  26 lines
  1. 0 REM----*10 LINE JOYSTICK TESTER*------                   V1.0
  2. 1 REM**(DELETE ALL THE REMS!)***********
  3. 2 REM BY: NICK AND J. ASHWORTH
  4. 3 REM     18680 SANBORN RD.
  5. 4 REM     MANCHESTER, MI. 48158
  6. 5 REM     U.S.A.------------------------
  7. 6 REM---PLUG JOYSTICK IN PORT 2. THEN   MOVE IT AROUND AND PRESS THE FIRE BUTTON
  8. 7 REM IF THE JOYSTICK CAN MAKE 9 DIFFER-ENT VALUES ON THE BOX IN THE MIDDLE OF
  9. 8 REM THE SCREEN IT IS OK!--------------
  10. 9 POKE53280,0:POKE53281,0:PRINT"[147][158]"
  11. 10 PRINT"JOYSTICK ANALYZER":J=PEEK(56320):IFJ=123THENA$="WEST[146]     "
  12. 20 IFJ=119THENA$="EAST[146]     "
  13. 30 IFJ=126THENA$="NORTH[146]    "
  14. 40 IFJ=125THENA$="SOUTH[146]    "
  15. 50 IFJ=111THENA$="BUTTON[146]   "
  16. 60 IFJ=122THENA$="NORTHWEST"
  17. 70 IFJ=118THENA$="NORTHEAST"
  18. 80 IFJ=117THENA$="SOUTHEAST"
  19. 90 IFJ=121THENA$="SOUTHWEST"
  20. 95 IFJ=127THENA$="CENTER[146]   "
  21. 100 PRINT""TAB(15)A$:GOTO10
  22. 105 REM -----------------------------
  23. 110 REM MODIFIED EVERY SO SLIGHTLY BY
  24. 120 REM   DAVID BRADLEY (01/16/85)
  25. 125 REM -----------------------------
  26.